colList <- list(colTa = 
				colorRampPalette(c("darkblue", "darkseagreen", 
								"gold", "darkred"),	interpolate = "linear"),
				colRH = 
				colorRampPalette(c("tan4", "sandybrown", "white", 
								"lightsteelblue", "royalblue4"),
								interpolate = "linear"),
				colPrec = 
				colorRampPalette(c("white", "darkblue", "mediumseagreen", 
								"gold", "red", "purple", "black"),
								interpolate = "linear"))
#colTa <- colorRampPalette(c("darkblue", "darkseagreen", 
#                            "gold", "darkred"),
#                          interpolate = "linear")
#                              
#colRH <- colorRampPalette(c("tan4", "sandybrown", "white", 
#                            "lightsteelblue", "royalblue4"),
#                          interpolate = "linear")
#
#colPrec <- colorRampPalette(c("white", "darkblue", "mediumseagreen", 
#                              "gold", "red", "purple", "black"))
